1 Imports System.Data.SqlClient
2 Imports Excel = Microsoft.Office.Interop.Excel
3 Public Class frmHostelFeeReceipt
4 Sub fillPaymentID()
5 Try
6 Dim CN As New SqlConnection(cs)
7 CN.Open()
8 adp = New SqlDataAdapter()
9 adp.SelectCommand = New SqlCommand("SELECT distinct RTRIM(PaymentID) FROM HostelFeePayment", CN)
10 ds = New DataSet("ds")
11 adp.Fill(ds)
12 dtable = ds.Tables(0)
13 cmbPaymentID.Items.Clear()
14 For Each drow As DataRow In dtable.Rows
15 cmbPaymentID.Items.Add(drow(0).ToString())
16 Next
17
18 Catch ex As Exception
19 MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
20 End Try
21 End Sub
22
23 Private Sub frmLogs_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
24 fillPaymentID()
25 End Sub
26 Sub Reset()
27 cmbPaymentID.Text = ""
28 fillPaymentID()
29 End Sub
30 Private Sub btnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReset.Click
31 Reset()
32 End Sub
33
34
35 Private Sub btnClose_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
36 Me.Close()
37 End Sub
38
39 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
40 Try
41 If cmbPaymentID.Text = "" Then
42 MessageBox.Show("Please select payment id", "", MessageBoxButtons.OK, MessageBoxIcon.Warning)
43 cmbPaymentID.Focus()
44 Exit Sub
45 End If
46 Cursor = Cursors.WaitCursor
47 Timer1.Enabled = True
48 Dim rpt As New rptHostelFeeReceipt 'The report you created.
49 Dim myConnection As SqlConnection
50 Dim MyCommand As New SqlCommand()
51 Dim myDA As New SqlDataAdapter()
52 Dim myDS As New DataSet 'The DataSet you created.
53 myConnection = New SqlConnection(cs)
54 MyCommand.Connection = myConnection
55 MyCommand.CommandText = "SELECT SchoolInfo.S_Id, SchoolInfo.SchoolName, SchoolInfo.Address, SchoolInfo.ContactNo, SchoolInfo.AltContactNo, SchoolInfo.FaxNo, SchoolInfo.Email, SchoolInfo.Website, SchoolInfo.Logo, SchoolInfo.RegistrationNo,SchoolInfo.DiseNo, SchoolInfo.IndexNo, SchoolInfo.EstablishedYear, Student.AdmissionNo, Student.EnrollmentNo, Student.GRNo, Student.UID, Student.StudentName,Student.FatherName, Student.MotherName, Student.FatherCN, Student.PermanentAddress, Student.TemporaryAddress, Student.EmailID, Student.DOB, Student.Gender,Student.AdmissionDate, Student.Session, Student.Caste, Student.Religion, Student.SectionID, Student.Photo, Student.Nationality, Student.SchoolID, Student.LastSchoolAttended, Student.Result,Student.PassPercentage, Hosteler.H_Id, Hosteler.HostelID, Hosteler.JoiningDate, HostelFeePayment.Id, HostelFeePayment.HFP_Id,HostelFeePayment.PaymentID, HostelFeePayment.HostelerID, HostelFeePayment.Installment, HostelFeePayment.TotalFee, HostelFeePayment.DiscountPer,HostelFeePayment.DiscountAmt, HostelFeePayment.PreviousDue, HostelFeePayment.Fine, HostelFeePayment.GrandTotal, HostelFeePayment.TotalPaid, HostelFeePayment.ModeOfPayment,HostelFeePayment.PaymentModeDetails, HostelFeePayment.Paymentdate, HostelFeePayment.PaymentDue, HostelFeePayment.ClassType, HostelFeePayment.SchoolType, HostelFeePayment.Class , HostelFeePayment.Section, HostelInfo.HI_Id, HostelInfo.Hostelname, HostelInfo.ManagedBy,HostelInfo.Person_ContactNo FROM SchoolInfo INNER JOIN Student ON SchoolInfo.S_Id = Student.SchoolID INNER JOIN Hosteler ON Student.AdmissionNo = Hosteler.AdmissionNo INNER JOIN HostelFeePayment ON Hosteler.H_Id = HostelFeePayment.HostelerID INNER JOIN HostelInfo ON Hosteler.HostelID = HostelInfo.HI_Id where PaymentID='" & cmbPaymentID.Text & "'"
56 MyCommand.CommandType = CommandType.Text
57 myDA.SelectCommand = MyCommand
58 myDA.Fill(myDS, "Student")
59 myDA.Fill(myDS, "Hosteler")
60 myDA.Fill(myDS, "SchoolInfo")
61 myDA.Fill(myDS, "HostelFeePayment")
62 myDA.Fill(myDS, "HostelInfo")
63 rpt.SetDataSource(myDS)
64 frmReport.CrystalReportViewer1.ReportSource = rpt
65 frmReport.ShowDialog()
66 Catch ex As Exception
67 MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
68 End Try
69 End Sub
70
71 Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
72 Cursor = Cursors.Default
73 Timer1.Enabled = False
74 End Sub
75 End Class
